home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / tcom / dialparm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  2.4 KB  |  89 lines
  1. {$G+,X+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                  DIALPARM.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit Dialparm;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, Buttons, AdMisc, AdDial, TComIni;
  19.  
  20. type
  21.   TDialerParametersForm = class(TForm)
  22.     GroupBox1: TGroupBox;
  23.     GroupBox2: TGroupBox;
  24.     Label1: TLabel;
  25.     Label2: TLabel;
  26.     MaximumRetriesEdit: TEdit;
  27.     TimeBetweenRetriesEdit: TEdit;
  28.     AbortOnVoiceBox: TCheckBox;
  29.     AbortOnBusyBox: TCheckBox;
  30.     AbortOnNoCarrierBox: TCheckBox;
  31.     AbortOnNoDialtoneBox: TCheckBox;
  32.     AbortOnErrorBox: TCheckBox;
  33.     OkBtn: TBitBtn;
  34.     CancelBtn: TBitBtn;
  35.     HelpBtn: TBitBtn;
  36.     procedure OkBtnClick(Sender: TObject);
  37.  
  38.   public
  39.     constructor Create(AOwner : TComponent); override;
  40.   end;
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. constructor TDialerParametersForm.Create(AOwner : TComponent);
  47. begin
  48.   inherited Create(AOwner);
  49.  
  50.   {set default values}
  51.   MaximumRetriesEdit.Text     := IntToStr(MaxDialTries);
  52.   TimeBetweenRetriesEdit.Text := IntToStr(RetryTime);
  53.  
  54.   AbortOnVoiceBox.Checked := mdAbortOnVoice in DialerOpts;
  55.   AbortOnBusyBox.Checked := mdAbortOnBusy in DialerOpts;
  56.   AbortOnNoCarrierBox.Checked := mdAbortOnNoCarrier in DialerOpts;
  57.   AbortOnNoDialtoneBox.Checked := mdAbortOnNoDialtone in DialerOpts;
  58.   AbortOnErrorBox.Checked := mdAbortOnError in DialerOpts;
  59. end;
  60.  
  61. procedure TDialerParametersForm.OkBtnClick(Sender: TObject);
  62. var
  63.   E    : Integer;
  64.   Temp : Integer;
  65.  
  66. begin
  67.   Val(MaximumRetriesEdit.Text, Temp, E);
  68.   if (E = 0) then
  69.     MaxDialTries := Temp;
  70.   Val(TimeBetweenRetriesEdit.Text, Temp, E);
  71.   if (E = 0) then
  72.     RetryTime := Temp;
  73.  
  74.   DialerOpts := [];
  75.   if AbortOnVoiceBox.Checked then
  76.     DialerOpts := DialerOpts + [mdAbortOnVoice];
  77.   if AbortOnBusyBox.Checked then
  78.     DialerOpts := DialerOpts + [mdAbortOnBusy];
  79.   if AbortOnNoCarrierBox.Checked then
  80.     DialerOpts := DialerOpts + [mdAbortOnNoCarrier];
  81.   if AbortOnNoDialtoneBox.Checked then
  82.     DialerOpts := DialerOpts + [mdAbortOnNoDialtone];
  83.   if AbortOnErrorBox.Checked then
  84.     DialerOpts := DialerOpts + [mdAbortOnError];
  85. end;
  86.  
  87. end.
  88.  
  89.